home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00802_SU-IN co 2.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  3.3 KB  |  102 lines
  1. on enterFrame
  2.   global g1erSprChr, gMaxBoutons, g1erSprLoc, gEtudPrec, gPartie
  3.   repeat with i = g1erSprLoc + 6 to g1erSprLoc + 9
  4.     set the visible of sprite i to 1
  5.   end repeat
  6.   if ((gEtudPrec = "SU") or (gEtudPrec = "CO")) and (gPartie <> " ") then
  7.     nothing()
  8.   else
  9.     repeat with i = g1erSprLoc + 10 to g1erSprLoc + 14
  10.       set the visible of sprite i to 0
  11.       puppetSprite(i, 1)
  12.     end repeat
  13.   end if
  14. end
  15.  
  16. on exitFrame
  17.   global gSujet0, gSujet1, gListCod, gEtudAct, gEtudPrec, gEtatEtud, gPartie, g1erSprChr, g1erSprLoc, g1erSprNav, gMaxBoutons, gBoutons, gScopeCo0, gScopeCo1, gPosVideo, gPosDebP, gPosDebS0, gPosDebS1, gPosDebE, gTraduit, gMessDef2, gMessSty2, gMessDef1, gMol
  18.   repeat with i = g1erSprChr to gMaxBoutons
  19.     puppetSprite(i, 1)
  20.   end repeat
  21.   gBoutons(appuie, g1erSprLoc + 1)
  22.   set gMol to 0
  23.   gBarChron(fleche, 0, 1, 1)
  24.   Affiche_Date(gSujet0, "ZI1", "ZI2", "ZI3", 0)
  25.   set monEpok to gSujet0(Le_Epoque)
  26.   if (monEpok = 70) or (monEpok = 4) then
  27.     gBoutons(habille, g1erSprLoc + 5, "vide")
  28.   end if
  29.   gBarChron(fleche, 0, 1, 1)
  30.   gBarChron(fleche, 1, monEpok, 0)
  31.   set monStatut to gSujet0(Le_Statut)
  32.   if monStatut = "A" then
  33.     gBoutons(appuie, g1erSprLoc + 4)
  34.     set the visible of sprite (g1erSprNav + 2) to 1
  35.   else
  36.     gBoutons(appuie, g1erSprLoc + 5)
  37.     set the visible of sprite (g1erSprNav + 2) to 0
  38.   end if
  39.   if ((gEtudPrec = "SU") or (gEtudPrec = "CO")) and (gPartie <> " ") then
  40.     if gEtudPrec = "SU" then
  41.       set gSujet1 to 0
  42.     end if
  43.     if gSujet1 = 0 then
  44.       set gSujet1 to gSujet0
  45.     end if
  46.     set gPosDebS0 to (getPos(gListCod, gSujet0(Le_Code)) - 1) * 300 * 4
  47.     set gPosDebS1 to (getPos(gListCod, gSujet1(Le_Code)) - 1) * 300 * 4
  48.     set gPosDebP to (getPos(gListPart, gPartie) - 1) * 300
  49.     gScopeCo0(SetTime, gPosDebE + gPosDebS0 + gPosDebP + gPosVideo)
  50.     gScopeCo1(SetTime, gPosDebE + gPosDebS1 + gPosDebP + gPosVideo)
  51.     gScopeCo0(visible, 1)
  52.     gScopeCo1(visible, 1)
  53.     if gPartie = "T" then
  54.       set monNumSpr to g1erSprLoc + 9
  55.     else
  56.       if gPartie = "C" then
  57.         set monNumSpr to g1erSprLoc + 8
  58.       else
  59.         if gPartie = "S" then
  60.           set monNumSpr to g1erSprLoc + 7
  61.         else
  62.           set monNumSpr to g1erSprLoc + 6
  63.         end if
  64.       end if
  65.     end if
  66.     gBoutons(appuie, monNumSpr)
  67.     if gSujet1 = gSujet0 then
  68.       set gEtatEtud to " "
  69.       gBoutons(habille, g1erSprLoc + 11, "BTPVID 1")
  70.       set the visible of sprite (g1erSprLoc + 14) to 0
  71.       repeat with i = g1erSprLoc + 10 to g1erSprLoc + 13
  72.         set the visible of sprite i to 1
  73.       end repeat
  74.       set gMessDef1 to getAt(gTraduit, 54)
  75.       set gMessSty2 to "bold"
  76.       set gMessDef2 to " "
  77.     else
  78.       set gEtatEtud to gPartie
  79.       gBoutons(habille, g1erSprLoc + 11, "BTPOEF 1")
  80.       set the visible of sprite (g1erSprLoc + 10) to 1
  81.       set the visible of sprite (g1erSprLoc + 11) to 1
  82.       set the visible of sprite (g1erSprLoc + 12) to 0
  83.       set the visible of sprite (g1erSprLoc + 13) to 0
  84.       set the visible of sprite (g1erSprLoc + 14) to 1
  85.       set gMessDef1 to getAt(gTraduit, 38)
  86.       set gMessSty2 to "bold italic"
  87.       set gMessDef2 to gSujet1(Le_Nom)
  88.     end if
  89.   else
  90.     set gMessDef1 to getAt(gTraduit, 39)
  91.     set gMessSty2 to "bold"
  92.     set gMessDef2 to " "
  93.     set gPartie to " "
  94.     set gSujet1 to 0
  95.     set gEtatEtud to " "
  96.   end if
  97.   set the trace to 0
  98.   curseur(-1)
  99.   JukeBox(1, " ")
  100.   BigPurge()
  101. end
  102.